home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / ad.arc / ADNAME.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1983-10-30  |  1.3 KB  |  35 lines
  1. 20  COLOR 7,0:RUN A$
  2. 30  COLOR 3,0:RUN "admain.bas"
  3. 3300  OPEN FILM$ FOR INPUT AS #3
  4. 3310  INPUT #3,Y$,NRED,NN,FILE$,FIL$,PT$,SNN$,LP1,LP$,T1$,SND$,TN,F$:CLOSE #3
  5. 3370  CLOSE:OPEN FILE$ AS #4 LEN = 356
  6. 3380  FIELD #4, 19 AS V$(1), 19 AS V$(2), 18 AS V$(13), 34 AS V$(12), 34 AS V$(3), 34 AS V$(4), 19 AS V$(5), 14 AS V$(6), 16 AS V$(7), 12 AS V$(8), 84 AS V$(9), 19 AS V$(10), 19 AS V$(11), 5 AS V$(14), 5 AS V$(15), 5 AS V$(16)
  7. 3510  IF A$="ADPRT" THEN B$="PRINT":KY=6
  8. 3515  IF A$="ADEDIT" THEN B$="EDIT":KY=2
  9. 3520  IF A$="ADWS" THEN B$="WordStar":KY=2
  10. 3525  IF A$="ADDELETE" THEN B$="DELETE":KY=3
  11. 3530  IF A$="ADWP" THEN B$="WordPerfect":KY=2
  12. 3535  IF A$="ADSORT" THEN B$="SORT":KY=4
  13. 3537  IF A$="ADSEARCH" THEN B$="SEARCH":KY=5
  14. 3538  IF A$="ADMAIL" THEN B$="MAILING LABEL":KY=2
  15. 3540  RETURN
  16. 5000  CLS:LOCATE 25,1:COLOR 0,7,1:PRINT O1$;:COLOR 7,0:LOCATE 1,1:RETURN
  17. 20000  CLOSE:GOSUB 3300:GOSUB 5000:COLOR 3,0,1
  18. 20005  ON KEY(KY) GOSUB 20:KEY(KY) ON:ON KEY(1) GOSUB 30:KEY(1) ON
  19. 20010  LOCATE 1,3:PRINT "ADDRESS #";SPACE$(8);"NAME":PRINT:COLOR 14,0
  20. 20015  GET #4,NN+1:K=VAL(V$(16))
  21. 20020  FOR I= 1 TO NN
  22. 20022  GET #4,K
  23. 20023  A=VAL(V$(1)):B=VAL(V$(2))
  24. 20030  M=M+1:PRINT TAB(5);I;SPACE$(10);MID$(V$(1),5,A);" ";MID$(V$(2),5,B)
  25. 20040  IF M<20 THEN 20080 ELSE M=0:GOSUB 20200
  26. 20060  IF I=> NN THEN 20
  27. 20070  LOCATE 1,3:PRINT "ADDRESS #";SPACE$(8);"NAME":PRINT:COLOR 14,0
  28. 20080  K=VAL(V$(14)):NEXT I
  29. 20090  COLOR 7,0
  30. 20100  IF M=0 THEN 20 ELSE GOSUB 20200:GOTO 20
  31. 20200  LOCATE 20,50:COLOR 10,0:PRINT " HIT ANY KEY TO CONTINUE ":LOCATE 21,55:PRINT " <Esc> to exit ":LOCATE 21,57:PRINT "Esc":COLOR 7,0:GOSUB 35030
  32. 20210  Y$=INKEY$:IF Y$="" THEN 20210
  33. 20220  IF Y$=CHR$(27) THEN 20 ELSE GOSUB 5000:RETURN
  34. 35030  IF SND$="N" THEN RETURN ELSE SOUND 750,2:SOUND 30000,2:SOUND 750,2:RETURN
  35.